actorCrud is package{
  A is actor{
    var R := relation of {};
  };
  
  
  main() do {
    assert (query A's R with R) = relation of {};
    
    request A to extend R with ("peter",1);
    
    logMsg(info,"A's R= $(query A's R with R)");
    assert (query A's R with R) = relation of {("peter",1)};
    
    request A to merge R with relation of {("john",2); ("alfred",3)};
    
    assert (query A's R with R) = relation of {("john",2); ("alfred",3);("peter",1)};
    
    request A to delete ((_,X) where X>2) in R;
    
    logMsg(info,"A's R= $(query A's R with R)");
    assert (query A's R with R) = relation of {("john",2); ("peter",1)};
    
    request A to update ((U,V) where V % 2 = 0) in R with (U,V*2);
    logMsg(info,"A's R= $(query A's R with R)");
    assert (query A's R with R) = relation of {("john",4); ("peter",1)};
  }
}